      SUBROUTINE OUTFSD
      IMPLICIT REAL*8 (A-H,O-Z)
      REAL*8 NAME
      COMMON/ANTENA/ A(10,3),ADOT(10,3),B(10,3),BDOT(10,3),DIN(10,3),
     .               DINDOT(10,3),DOUT(10,3),DOUTDT(10,3),ZBZ(3,10),
     .               NELMTS,NDAMPR,MODES(10)
      COMMON/IAFSD/DELMAX,DELMIN,KCUT(150),NCUT,NUP
      COMMON/IBFSD/HEAD(150,4),NAME(150)
      COMMON /ICNTRL/KNTRL(10)
      COMMON /JCNTRL/NCNTRL,MCNTRL,MAPCNT(20)
      COMMON/IMAIN1/ IDATE,LSAVE,INOPT,IPLOT,NUMEQS,IPLTPE,IORB,ITAPE
      COMMON /RMAIN1/DUMMY(5),UPS(150),DNS(150)
      COMMON /VARBLS/DEPNDS(150),DERIVS(150)
      NEQ=NUMEQS
      NELE=NELMTS
      NDMPER=NDAMPR
      DO 150 I=1,NEQ
 150  NCUT=NCUT+KCUT(I)
      IF(DELMIN.GT.1.0D7) DELMIN=0.0D0
      IF(DELMAX.EQ.0.0) DELMAX=1.0D9
      WRITE(6,9998)
 9998 FORMAT(1H1,' *******************************          FSD  ADAMS-M
     *OULTIN  INTEGRATOR  MESSAGE  TABLE            ********************
     1******')
      WRITE(6,10000)NEQ,NELE,NDMPER
      WRITE(6,10004) NCUT,NUP,DELMAX,DELMIN
      WRITE(6,10001)
      LINES=8
      WRITE(6,10003)
C
      DO 170 I=1,NEQ
      WRITE(6,10002) (HEAD(I,N),N=1,4),NAME(I),KCUT(I)
     &               ,UPS(I),DNS(I),DEPNDS(I),DERIVS(I)
      LINES=LINES + 1
      IF(LINES.LT.40) GO TO 160
      LINES=2
  160 IF(MOD(LINES,5).EQ.0) WRITE(6,10003)
  170 CONTINUE
C
10000 FORMAT('1',46X,'NUMBER OF EQUATIONS FOR THIS CASE IS ',I3/'0',46X,
     .               'NUMBER OF ANTENNA ELEMENTS',I3/'0',46X,
     .               'NUMBER OF DAMPER ELEMENTS',I3)
C
10001 FORMAT('0',57X,'INTEGRATION BOUNDS'/' ',53X,'KCUT',6X,
     &              'UPPER',12X,'LOWER',8X,'DEPEND',8X,'DERIVE',/)
C
10002 FORMAT(' ',2X,4A8,2X,A8,5X,I5,4(1PE16.6)          )
C
10003 FORMAT(1H0)
C
10004 FORMAT('0',46X,'NUMBER OF DELTA T  CUT   WITHIN THE PHASE',I3,/,
     &       ' ',46X,'NUMBER OF DELTA T RAISED WITHIN THE PHASE',I3,/,
     &       ' ',46X,'MAXIMUM   DELTA T VALUE  WITHIN THE PHASE',1PE13.6
     &,/,
     &       ' ',46X,'MINIMUM   DELTA T VALUE  WITHIN THE PHASE',1PE13.6
     &,/)
C
C
      RETURN
      END
